PROGRAM eskit 
! Copyright (C) 2009-2010 W. Wang 
! License: This file is distributed under the terms of the GNU General Public License.
! Description: 
! Revision histoty: Created May 2010  
! Input/output Parameters: 

USE cellinfo 
IMPLICIT NONE

!Local variables  
! Reading variables from input file
CALL readin

! Calculating the parameters related reciprocal space
CALL reciplat(cell_vector,cell_vol,recip_vol,recip_vector)

! Writting the output (LOG.out) file
CALL writelog

!Debug
!write(*,*)atoms_info(1)%atom_symbol
!write(*,*)atoms_info(2)%atom_pos(:)
!write(*,*)cell_vector(1,:)
CALL free_memory
END 
